home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / tch_tpas.zip / PROG11.PAS < prev    next >
Pascal/Delphi Source File  |  1986-04-05  |  512b  |  25 lines
  1. PROGRAM PROG11;
  2. {$U+    Copyright (C), 1985 by Lyle Faurot.  All rights reserved.
  3.  
  4.     New Topics: FUNCTION declaration
  5.                 User defined function
  6.  
  7. }
  8.  
  9. VAR
  10.   No : Integer;
  11.  
  12. FUNCTION Cube(Number:Integer) : Integer;
  13.  
  14. BEGIN   {Cube}
  15.   Cube := Number * Number * Number;
  16. END;    {Cube}
  17.  
  18.  
  19. BEGIN   {PROG11}
  20.   Write('Enter a number: ');
  21.   ReadLn(No);
  22.   WriteLn('The cube is: ', Cube(No) );
  23. END.    {PROG11}
  24.  
  25.